home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ADV350.ZIP / rspeak.for < prev    next >
Text File  |  1990-11-11  |  290b  |  13 lines
  1.       SUBROUTINE RSPEAK(I)
  2.       
  3. C  PRINT THE I-TH "RANDOM" MESSAGE (SECTION 6 OF DATABASE).
  4.  
  5.       IMPLICIT INTEGER*4 (A-Z)
  6. C     INTEGER*2 RTEXT,ASCVAR
  7.       COMMON /TXTCOM/ RTEXT
  8.       DIMENSION RTEXT(205)
  9.       
  10.       IF(I.NE.0) CALL SPEAK(RTEXT(I))
  11.       RETURN
  12.       END
  13.